home *** CD-ROM | disk | FTP | other *** search
/ Quick PC 62 / Quick PC 62.iso / I386 / IIS5_01.CAB / IIS_iifvdnt.asp < prev    next >
Encoding:
Text File  |  1999-06-03  |  4.6 KB  |  213 lines
  1. <%@ LANGUAGE = VBScript %>
  2. <% Option Explicit %>
  3. <!-- #include file="directives.inc" -->
  4.  
  5.  
  6. <% if Session("FONTSIZE") = "" then %>
  7.     <!--#include file="iito.inc"-->
  8. <% else %>
  9.     <!--#include file="iifvdnt.str"-->
  10. <% 
  11.  
  12.  
  13. On Error Resume Next 
  14.  
  15. Dim path, spath, instobj, currentobj
  16.  
  17. path=UCase(Session("dpath"))
  18.  
  19. spath=UCase(Session("spath"))
  20.  
  21. if spath = "" then
  22.     spath = Mid(path,1,InStr(path,"/ROOT")-1)
  23.     Session("spath")=spath
  24. end if
  25.  
  26. Set currentobj=GetObject(path)
  27. Set instobj=GetObject(spath)
  28.  
  29. Session("SpecObj")=spath
  30. Session("SpecProps")="MSDosDirOutput"
  31. Set currentobj=GetObject(path)
  32.  
  33. %>
  34.  
  35. <!--#include file="iiset.inc"-->
  36. <!--#include file="iisetfnt.inc"-->
  37. <HTML>
  38. <HEAD>
  39. <TITLE></TITLE>
  40. <SCRIPT LANGUAGE="JavaScript">
  41.     <% if UCase(Right(currentobj.ADsPath,4))="ROOT" then %> 
  42.         top.title.Global.helpFileName="iipz_5";    
  43.     <% else %>
  44.         top.title.Global.helpFileName="iipz_3";
  45.     <% end if %>
  46.     var Global=top.title.Global;
  47.     
  48.     <!--#include file="iijsfuncs.inc"-->
  49.     
  50.     function disableDefault(dir,fromCntrl, toCntrl){
  51.         if (!dir){
  52.             if (fromCntrl.value !=""){
  53.                 toCntrl.value=fromCntrl.value;
  54.                 fromCntrl.value="";
  55.             }
  56.         }
  57.         else{
  58.             if (toCntrl.value !=""){
  59.                 fromCntrl.value=toCntrl.value;
  60.                 toCntrl.value="";
  61.             }
  62.         }
  63.     }
  64.  
  65.     function enableDefault(chkCntrl){
  66.         chkCntrl.checked=true;
  67.     }
  68.     
  69.     function setLog(chkCntrl){
  70.         if (chkCntrl.checked){
  71.             document.userform.DontLog.value = "False";
  72.         }
  73.         else{
  74.             document.userform.DontLog.value = "True";                
  75.         }
  76.         
  77.     }    
  78.  
  79.     function SetBool(){
  80.         if (document.userform.rdohdnMSDOSDirOutput[0].checked){
  81.             document.userform.MSDOSDirOutput.value="False"
  82.         }
  83.         else{
  84.             document.userform.MSDOSDirOutput.value="True"
  85.         }
  86.     }
  87.  
  88.     function listFuncs(){
  89.         this.writeList=buildListForm;
  90.     }
  91.  
  92.     function buildListForm(){
  93.     }
  94.  
  95.     listFunc=new listFuncs();
  96.  
  97.  
  98. </SCRIPT>
  99. </HEAD>
  100.  
  101. <BODY BGCOLOR="<%= Session("BGCOLOR") %>" TOPMARGIN=5 TEXT="#000000" LINK="#FFFFFF"  >
  102.  
  103. <%= sFont("","","",True) %>
  104. <HR>
  105. <FORM NAME="userform" onSubmit="return false">
  106. <TABLE BORDER=0 CELLPADDING=0>
  107. <TR>
  108.     <TD>
  109.         <%= sFont("","","",True) %>
  110.             <%= L_PATH_TEXT %>
  111.         </FONT>
  112.     </TD>
  113.     <TD>
  114.         <% if InStr(currentobj.Path,"\\") then %>
  115.             <%= text("Path",45,"","","",false,true) %>      
  116.         <% else %>
  117.             <INPUT NAME="Path" VALUE="\\" SIZE=45 <%= Session("DEFINPUTSTYLE") %>>
  118.         <% end if %>
  119.  
  120.     </TD>
  121. </TR>
  122. <TR>
  123.     <TD><%= sFont("","","",True) %>
  124.         <%= L_USERNAME_TEXT %>
  125.         </FONT>
  126.     </TD>
  127.     <TD><%= sFont("","","",True) %>
  128.         <%= text("UNCUserName",45,"","","",false,true) %>  
  129.         </FONT>        
  130.     </TD>
  131. </TR>
  132. <TR>
  133.     <TD><%= sFont("","","",True) %>
  134.         <%= L_PASSWORD_TEXT %>
  135.         </FONT>        
  136.     </TD>
  137.     <TD><%= sFont("","","",True) %>
  138.         <%= pword("UNCPassword",45,"","","",false,true) %>  
  139.         </FONT>        
  140.     </TD>
  141. </TR>
  142.  
  143. <TR HEIGHT=4>
  144.     <TD> 
  145.     </TD>
  146. </TR>
  147. <TR>
  148.     <TD COLSPAN=3>
  149.                     <%= sFont("","","",True) %>
  150.                         <%= checkbox("AccessRead","",false) %> <%= L_READ_TEXT %><BR>
  151.                         <%= checkbox("AccessWrite","",false) %> <%= L_WRITE_TEXT %><BR>
  152.                         <% if currentobj.DontLog then %>
  153.                             <INPUT TYPE="checkbox" NAME="hdnDontLog" OnClick="top.title.Global.updated=true;setLog(this);"> <%= L_LOGACCESS_TEXT %><BR>                            
  154.                             <INPUT TYPE="hidden" NAME="DontLog" VALUE="True">                            
  155.                         <% else %>
  156.                             <INPUT TYPE="checkbox" NAME="hdnDontLog" CHECKED  OnClick="top.title.Global.updated=true;setLog(this);"> <%= L_LOGACCESS_TEXT %><BR>
  157.                             <INPUT TYPE="hidden" NAME="DontLog" VALUE="False">                            
  158.                         <% end if %>
  159.                     </FONT>
  160.     </TD>
  161. </TR>
  162.  
  163.  
  164. </TABLE>
  165. <% if Session("vtype") = "svc" or Session("vtype") = "server" then%>
  166.  
  167. <!-- set the current object = to the instance level object for MSDOSDirOutput -->
  168.  
  169. <P>
  170. <IMG SRC="images/hr.gif" WIDTH=5 HEIGHT=2 BORDER=0 ALIGN="middle">
  171. <%= L_DIRECTORYSTYLE_TEXT %>
  172. <IMG SRC="images/hr.gif" WIDTH=350 HEIGHT=2 BORDER=0 ALIGN="middle">
  173. <P>
  174. <TABLE BORDER=0 CELLPADDING=0 WIDTH = 200>
  175. <TR>
  176.     <TD COLSPAN=3>
  177.         <%= sFont("","","",True) %>
  178.             <%= printradio("hdnMSDOSDirOutput", not instobj.MSDOSDirOutput, "SetBool();",false) %>
  179.              
  180.             <%= L_UNIX_TEXT %>®
  181.         </FONT>
  182.     </TD>
  183. </TR>
  184. <TR>
  185.     <TD COLSPAN=3>
  186.         <%= sFont("","","",True) %>
  187.             <%= printradio("hdnMSDOSDirOutput", instobj.MSDOSDirOutput, "SetBool();",false) %>
  188.              
  189.             <%= L_MSDOS_TEXT %>®
  190.             <% if instobj.MSDOSDirOutput then %>
  191.                 <INPUT TYPE="hidden" NAME="MSDOSDirOutput" VALUE="True">
  192.             <% else %>
  193.                 <INPUT TYPE="hidden" NAME="MSDOSDirOutput" VALUE="False">
  194.             <% end if %>
  195.         </FONT>
  196.     </TD>
  197. </TR>
  198. </TABLE>
  199. <% end if %>
  200. </FORM>
  201.  
  202. </FONT>
  203. </BODY>
  204.  
  205. </HTML>
  206.  
  207.  
  208. <% end if %>
  209.  
  210.  
  211.  
  212.  
  213.